home *** CD-ROM | disk | FTP | other *** search
/ Pascal Super Library / Pascal Super Library (CW International)(1997).bin / MENU_UTL / PULL70B / PULLDEMO.PAS < prev    next >
Pascal/Delphi Source File  |  1993-09-24  |  2KB  |  65 lines
  1. { ========================================================================== }
  2. { PullDemo.pas - Full demonstration of pull-down menus.   var 7.0b, 09-24-93 }
  3. {                                                                            }
  4. {   Copyright (c) 1988,1993 James H. LeMay, All rights reserved.             }
  5. { ========================================================================== }
  6.  
  7. {$i pulldefs.inc }
  8.  
  9. {$M 16384,18000,18000 }
  10.  
  11. program PullDemo;
  12.  
  13. uses
  14.   Crt,Qwik,Wndw,Pull,PullStat,
  15.   {$ifdef UseDataEntryCode }
  16.   PullData,
  17.   {$endif }
  18.   PullWork;  { You must include this unit for this demo! }
  19.  
  20. var
  21.   OrigPathName: string[67];
  22.  
  23. procedure DisplayScreen;
  24. begin
  25.   WWrite ( 1, 1,'PULLDEMO v7.0b            Multi-level Pu'+
  26.                 'll-down Menus       Copr 1993  J H LeMay');
  27.   ShowTopLine;
  28.   SetWindowModes (PermMode);
  29.   MakeWindow (3,1,CRTrows-3,CRTcols,White+BlueBG,White+BlueBG,DoubleBrdr,
  30.               Window1);
  31.   SetWindowModes (0);
  32.   TitleWindow (Top,Left,SameAttr,'1');
  33.   TWS.WndwAttr := Yellow+BlueBG;
  34.   WWriteC ( 2,'PULL70B.ZIP - MULTI-LEVEL PULL-DOWN MENUS');
  35.   WWriteC ( 9,'This is Work Window 1.');
  36.   TWS.WndwAttr := TWS.OrigAttr;
  37.   WWriteC ( 4,'Use F1 everywhere for some descriptions.');
  38.   WWriteC ( 5,'Use ''Quit'' to exit demo program.        ');
  39.   WWriteC ( 6,'Be sure to try a CR at "'^P'" marked lines.');
  40.   WWriteC ( 7,'Also try all the EnterData lines.       ');
  41.   WWrite(11, 9,'The following Data Entry fields have some arbitrary values');
  42.   WWrite(12, 9,'and ranges.  Move the highlight and edit.  Press F1 for help.');
  43. end;
  44.  
  45. begin
  46. { Qsnow := false; }
  47.   GetDir (0,OrigPathName);
  48.   PathName := OrigPathName;
  49.   PreferMultiTask := true;   { Use Multi-tasking MTVB if possible. }
  50.   InitPull (LightGray,false); { <<-- Be sure you do this!! }
  51.   DisplayScreen;
  52.  
  53.   GotoKeyDispatcher;          { <<-- All keyboard entries go through here! }
  54.  
  55.   if OrigPathName<>PathName then
  56.     begin
  57.       {$I-} ChDir(OrigPathName); {$I+}
  58.       if IOresult<>0 then;
  59.     end;
  60.   AccessWindow (Window0);
  61.   WClrScr;
  62.   WGotoRC (CRTrows,1);
  63.   SetCursor (CursorInitial);
  64. end.
  65.